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(57) Abstract 

A defined unit identifier which is an image necessary for a software to be 
produced is determined. Words existing in the defined unit identifier are picked up 
and a processing routine diagram, in which all pallets necessary for the software are 
arranged along the flowchart, is produced based on the defined unit identifier. Then a 
necessary file is determined in accordance with the picked-up words and the 
produced processing routine diagram. Then first basic logics for performing the 
image editing or the file editing, second basic logics for determining a processing 
routine and third basic logics for updating the file are produced for all the picked-up 
words. Then three types of pallets connecting the first, second and third basic logics 
are produced for every image and pallet functions which execute the basic logics in 
the respective pallets autonomously with significance are produced. An image based 
upon the pallet function concerning the first basic logics is transmitted and the 
picture is received and the pallet function concerning the second basic logics is 
executed. This process is one of a plurality of process routes. The above mentioned 
pallet functions are incorporated into a pallet chain function which has a structure for 
determining one processing routine among a plurality of processing routines 
including the processing routine where the pallet function concerning the third logics 
is executed in accordance with the result of execution of the pallet function 
concerning the second logics. This software does not require to produce basic logics 
for all the words and, if basic logics are produced for some of the words, the 
operation is performed within the range. 
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j.PQQQ4-§EC_SECTI0N. 



NOT ( PRKEY NO OF W0204CPS) = 04 ) 
GO TO LP0004-BXIT 
END- IF. 



* L01540 0 P C D (LP0004) 



IF ERR-INF..N0T 



F A01540 0f = KH201E(PS) = SPACE 
MOVE "1 TO ERR- INF 



MOVE 2Q09 
MOVE B Y 1* 
MOVE SPACE 



0 MSG-NO 
0 A01540-_ 
0 A01560 OF KH201B 



0 A01540-C^OF..5!Q20|(PS) 



* OPEN K213DL 



ELSE 

IF K2ipL01-QPEN_NpT.= *1 



OPEN INPUT K213DL0 
*F FLSTS1 NOT = ZEku 

MOVE 88Q0 TO MSG-NO 



MOVE s r TO ERR- INF 
GO TO MAIN-END 
pi op 

MOVE "l" TO K213DL01-0PEN 
END-IP 
END- I F 

MOVE A01540 OF KH201BCPS) TO W01540 
K iftflo 78 M B OP K213DL01-REC 

read mm™ crirnnp 

MOVE 100 TO SGLCODB 
flP'UMnnP - 7P»n 

lF MOVE SKD792 OF K213DL01-REC TO R-W01560 
END-IF 

IF SGLCODE = ZERO 

MOVE R-W01560 TO INDATA 

MOVE 16 TO OUTKBTA 

MOVE° R OUTDATA PR TO AD1560 OF KH201ECPS) 

CI CD 

MOVE T TO ERR-INF 

M W 18 M-C OF W0204CPS) 

MOVE SPACE TO A01560 0F-KH201E (PS) 
END-IF 
END- 1 F. 

FRR- I NP NOT = 1 

IF CSR-LOCK OF W0204 (PS) = "A12590* 
MOVE 3 TO ROUTE-NO rt 

MOVE *KH600Q TO L-GAMEN-NO 
END - 1 F 

■* 3 ,r4MPcP»«IB!B5*. -A13610- 



MOVE 3 
MOVE -KH600Q" 



0 ROUTE-NO 
0 L-GAMEN-NO 
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***************** f-^ofe^ ****** ****** ***********************?$* 
*********************************************************** 
* KH201E %:&At> (flEfl) * 

*********************************************************** 

IF GAMEN-NO OF CRTL-ARBA = "KH201E" 
*********************************************************** 
D DISPLAY "KH201E LAYT-FLG r " LAYH-FLG 
D DISPLAY "KH201E LAYT-FLG=" LAYT-FLG 

IF LAYH-FLG = V 
***** gtf#n-K YD1179KH201B1E 

***** W107580 OF KH201E(STGir i839KH2 ° 1E1E 

MM* *!I*^°=i- K V 839 ° F EF - ARBA YD1847KH201E1E 
M0VEA12590 OF KH201E(STC1) 
„„ w T0 KD1847 OF EF-ARBA 
960424***** K? NO YD1844KH201E1E 
***** F A07560 OF KH201B(STG1) IS NUMERIC 
***** MOVE A07560 OF KH201E(STG1) 
***** TO KD1844 OF EF-AREA 

*****END-IF 

960513*****^^0 KH201E(STcp ^HHHI!"" 

«!« M0VE *8 75 8yi9 K iif o H3m ) 

*****EDN-IF 



960513***** M»NO YD4028KH201E1E 
* M ** [ OS 480 9 OP KH201E(STG1) IS NUMERIC 
***** MOVE A04800 OF RH201E(STGr 
***** TO KD4028 OF EF-ARBA 



*****EN_ 

***** B&3l£tt&H YD1854KH201E1E 



J 1 

***** MOVE ^A04800 0F RH20iE (STG i ) 
TO iT " 

^ift^Ho OF KH201B(STGl5' 
TO KD1854 OF EF-AREA 

***** W#I KH201E(STGJ D1857KH201B1E 

JSL .KIH557 OF EF-AREA 
***** fi^lSfste YD4044KH201E1E 
MOVE A14&900F KH201ECSTG1) 
TO KD4044 OF EF-AREA 
***** ffi*2 1 YD1786KH201E1E 
MOVE A17860 OF KH201E (STG1 ) 
„ TO KDI786 OF EF-AREA 
***** ffi& 2 YD1787KH201E1E 
MOTE A17870 OF KH201E (STG1) 
TO KD1787 OF EF-ARBA 
***** B2? hfeffiflNO YD4037KH201E1E 
MOVE AU2980 OF KH201ECSTG1) 
«.m«TP KD4037 OF EF-ARBA 
***** SBx£E# YD1412KH201E1E 
MOVE A14130 OF KH201ECSTG1) 
T0 .P1412 OP EF-ARBA 
***** ffS^n-K YD1084KH201E1E 
HOVF A10840 OF KH201E(STG1) 
^-^_J^Pk°84 OF EF-ARBA 
***** 7)rtI^K4r YDS568KH201E1E 

bwiw 

END-IF 

************************************************************ TEXT 

PERFORM VARYING SI FROM 1 BY i 
UNTIL SI > 6 
***** LASTIDX CONTROL 

***** 
***** 



MOVE? SI TO TI 
I* u - K 1 YE5501KH201E1E 
IF Al 1210 OF KH201E(STG1) NOT = 1 
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wo 3 : ®mmm ff03EH2 

MttMiHHHMU T — 9 <Ofe#> ************************************** 
*********************************************************** 

* W03EH2 §3 (H D R) * 

*********************************************************** 

***** »M#fffi£It&«i L18570 
UG0717*****IF TKBN " CNS-B? AND KDU360 OF EF-ARBA NOT = i 
IF TKBN = CNS-EF 

IF KE5001 OF EF-ARBA(PI) IS NUMERIC 
------- of EF-ARBA IS NUMERIC 

OF EF-AREA(PI) IS NUMERIC 



AND KD1857 
AND KEC201 

IF PI = 1 
MOVE 

END-IP 

IF KE5001 OF _ 

COMPUTE DK1857 



ZERO TO KD1857 OF EF-AREA 



H=A»|jPJ). 



***** 



***** 



ON SIZE ERROR 
MOVE ALL V 
IP ERR- INF = 
MOVE V 
MOVE 3019 
END-IP 
END-COMPUTE 
END-IF 
sND-IF 



NOT = ZERO 
AREA = KD1857 OF EP-AREA 

+ KBC201 OF EF-AREA(PI) 



TO KD1857 OF EF-AREA 
SPACE 

ERR-INF 
MSG-NO 



TO 
TO 




KBN = 
IF KD1858 
AND KE5Q01 
ND KEC251 



L18580 



OF 
OF 
OF 



-AREA 
EP-AREA(PI) 
EF-ARBA(PI) 



F9t NOT = T 
__KDU360 OF EF-AREA NOT 



IS 
IS 
IS 



NUMERIC 



IF 



PI = 
MOVE 
END-IF 

IF KE5001 OF EF 
COMPUTE KD1 
= KD18 
+ KEC2 
ON SIZE ERRL.. 
MOVE ALL "9 
IF ERR-INF 
MOVE 411 
MOVE 
END-IF 
END-COMPUTE 
END-IF 



ZERO TO KD1858 OF EF-ARBA 



AREA(PI) NOT 
58 OF EF-AREA 

EF-ARBA, x 
EF-ARBA(PI) 



ZERO 



OF 
OF 



TO 
SPACE 
1" TO ERR-INF 
3019 TO MSG-NO 



KD1858 OF EF-AREA 



***** 



IF KDl 



(DU360 OF EF-AREA = 1 
MOVE KD1099 OF EF-AREA 
TO KD1858 OF EF-AREA 
END-IP 
END-IF 

***** E |£fifeffi£ft£fi 
IF TKBN = CNS^EF 

IF KE5001 OF EF-AREA(PI) 



L18560 



AND KDi8< 
AND KE11; 
IF 



6 
4 

VE 



OF 
OF 

*ZERO 



F-AREA(PI) 



IS 
IS 
IS 



NUMERIC 

mil! 



TO KD1856 OF EF-AREA 



KE5001 OF EP-AREA(PI) 
COMPUTE KD1856 OF EF 
+ KE1124 OF EF- 
ON SIZE ERROR 
MOVE ALL V 



NOT = ZERO 
EP-AREA = KD1856 
AREA CP I ) * KE5001 



EF-AREA 
EF-AREA (PI) 
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